#!/usr/bin/env perl
# Time-stamp: <27 Apr 00 18:07:19 giron1>

=head1 NAME

filtparenthesis.perl - filter () in text files

=head1 DESCRIPTION

To be use in conjunction with I<filtertxt.perl> to remove text
enclosed in parenthesis and underscore character.
For example: 1_(un)_ is converted to  1

=head1 SEE ALSO

L<filtertxt>

=head1 AUTHOR

 $Id: filtparenthesis.perl,v 1.1 2007/10/08 09:26:02 schweitz Exp $
 Franck Giron

=head1 LOG

 $Log: filtparenthesis.perl,v $
 Revision 1.1  2007/10/08 09:26:02  schweitz
 version 2.4, lib vergessen

 Revision /main/6  17-Jan-2003.12:25:45  giron1
 Updating header to /usr/bin/env perl.
 
 Revision 1.5  2000/04/27 16:11:48  giron1
 Small error concerning the link removed

 Revision 1.4  2000/04/27 10:25:21  giron1
 Pod documentation updated


=cut

use File::Copy;

#if ($filein =~ /(nombres)/) {
    warn "$filein\n";
    $fileout = 'tmp.txt';
    $fho = new FileHandle ">$fileout";
    $fhi = new FileHandle "<$filein";
    while (<$fhi>) {
	s/_*\(.*\)//g;
        print $fho $_;
    }
    $fho->close;
    $fhi->close;
    copy($fileout, $filein);
#}

